home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / AOCE folder / OCEStandardMail.lisp < prev    next >
Encoding:
Text File  |  1994-09-12  |  26.3 KB  |  660 lines  |  [TEXT/CCL2]
  1.  
  2. (in-package :TRAPS)             ; ***********************************************************
  3. ; 
  4. ; Created: Monday, November 8, 1993 12:03PM
  5. ;  OCEStandardMail.p
  6. ;  Pascal Interface to the Macintosh Libraries
  7. ; 
  8. ;   Copyright Apple Computer, Inc. 1990-1993
  9. ;   All rights reserved
  10. ; 
  11. ; ***********************************************************
  12.  
  13. ; $IFC UNDEFINED UsingIncludes
  14. ; $SETC UsingIncludes:= 0
  15. ; $ENDC
  16.  
  17. ; $IFC NOT UsingIncludes
  18.  
  19. ; $ENDC
  20.  
  21. ; $IFC UNDEFINED UsingOCEStandardMail
  22. ; $SETC UsingOCEStandardMail:= 1
  23.  
  24. ; $I+
  25. ; $SETC OCEStandardMailIncludes:= UsingIncludes
  26. ; $SETC UsingIncludes:= 1
  27.  
  28. ; $IFC UNDEFINED UsingAppleEvents
  29.  
  30. (require-interface 'APPLEEVENTS); $I $$Shell(PInterfaces)AppleEvents.p
  31. ; $ENDC
  32.  
  33. ; $IFC UNDEFINED UsingFiles
  34.  
  35. (require-interface 'FILES)      ; $I $$Shell(PInterfaces)Files.p
  36. ; $ENDC
  37.  
  38. ; $IFC UNDEFINED UsingOCEAuthDir
  39. ; $I OCEAuthDir.p
  40. ; $ENDC
  41.  
  42. ; $IFC UNDEFINED UsingOCEMail
  43. ; $I OCEMail.p
  44. ; $ENDC
  45.  
  46. ; $IFC UNDEFINED UsingWindows
  47.  
  48. (require-interface 'WINDOWS)    ; $I $$Shell(PInterfaces)Windows.p
  49. ; $ENDC
  50.  
  51. ; $IFC UNDEFINED UsingDialogs
  52.  
  53. (require-interface 'DIALOGS)    ; $I $$Shell(PInterfaces)Dialogs.p
  54. ; $ENDC
  55.  
  56. ; $SETC UsingIncludes:= OCEStandardMailIncludes
  57.  
  58. (defconstant $gestaltSMPMailerVersion :|malr|)
  59. (defconstant $gestaltSMPSPSendLetterVersion :|spsl|)
  60.  
  61. (defconstant $kSMPNativeFormatName :|natv|)
  62.  
  63. (defconstant $kSMPVersion 1)
  64.  
  65. (defrecord LetterSpec 
  66.    (spec (:ARRAY :SIGNED-LONG (- 3 1 -1)))
  67.    )
  68.  
  69. (defconstant $typeLetterSpec :|lttr|)
  70.  
  71. ;  Wildcard used for filtering letter types. 
  72.  
  73. (defconstant $FilterAnyLetter :|ltr*|)
  74. (defconstant $FilterAppleLetterContent :|ltc*|)
  75. (defconstant $FilterImageContent :|lti*|)
  76.  
  77. (defrecord LetterDescriptor 
  78.    (onDisk :BOOLEAN)
  79.    (:variant 
  80.       ((fileSpec :FSSPEC))
  81.       ((mailboxSpec :LETTERSPEC))
  82.       ))
  83.  
  84. ; 
  85. ; SMPPSendAs values.  You may add the following values together to determine how the
  86. ; file is sent, but you may not set both kSMPSendAsEnclosureMask and kSMPSendFileOnlyMask.  This
  87. ; will allow you to send the letter as an image so that it will work with fax gateways
  88. ; and send as an enclosure as well.
  89. ; 
  90.  
  91. (defconstant $kSMPSendAsEnclosureBit 0);  Appears as letter with enclosures 
  92. (defconstant $kSMPSendFileOnlyBit 1);  Appears as a file in mailbox. 
  93. (defconstant $kSMPSendAsImageBit 2);  Content imaged in letter 
  94.  
  95. ;  Values of SMPPSendAs 
  96. (defconstant $kSMPSendAsEnclosureMask #X1); 1<<kSMPSendAsEnclosureBit
  97. (defconstant $kSMPSendFileOnlyMask #X2); 1<<kSMPSendFileOnlyBit
  98. (defconstant $kSMPSendAsImageMask #X4); 1<<kSMPSendAsImageBit
  99.  
  100. (def-mactype :SMPPSENDAS (find-mactype :UNSIGNED-BYTE))
  101.  
  102. ;  Send Package Structures 
  103.  
  104. (def-mactype :SMPDRAWIMAGEPROCPTR (find-mactype :POINTER))
  105. ;  FUNCTION SMPDrawImageProcPtr(refcon: LONGINT; inColor: BOOLEAN): void;
  106.  
  107. (defrecord SMPRecipientDescriptor 
  108.    (next (:POINTER :SMPRECIPIENTDESCRIPTOR));   Q-Link. 
  109.    (result :SIGNED-INTEGER)     ;   result code when using the object. 
  110.    (recipient (:POINTER :OCEPACKEDRECIPIENT));   Pointer to a Packed Address. 
  111.    (size :SIGNED-LONG)          ;   length of recipient in bytes. 
  112.    (theAddress :OCERECIPIENT)   ;   structure points into recipient and theRID. 
  113.    (theRID :RECORDID)           ;   structure points into recipient. 
  114.    )
  115.  
  116. (def-mactype :SMPRECIPIENTDESCRIPTORPTR (find-mactype :POINTER))
  117.  
  118. (defrecord SMPEnclosureDescriptor 
  119.    (next (:POINTER :SMPENCLOSUREDESCRIPTOR))
  120.    (result :SIGNED-INTEGER)
  121.    (fileSpec :FSSPEC)
  122.    (fileCreator :OSTYPE)        ;   Creator of this enclosure. 
  123.    (fileType :OSTYPE)           ;   File Type of this enclosure. 
  124.    )
  125.  
  126. (def-mactype :SMPENCLOSUREDESCRIPTORPTR (find-mactype :POINTER))
  127.  
  128. (defrecord SMPLetterPB 
  129.    (result :SIGNED-INTEGER)     ;  result of operation 
  130.    (subject (:POINTER :RSTRING));  RString 
  131.    (senderIdentity :SIGNED-LONG);  Letter is sent from this Identity 
  132.    (toList (:POINTER :SMPRECIPIENTDESCRIPTOR));  Pointer to linked list 
  133.    (ccList (:POINTER :SMPRECIPIENTDESCRIPTOR));  Pointer to linked list 
  134.    (bccList (:POINTER :SMPRECIPIENTDESCRIPTOR));  Pointer to linked list 
  135.    (script :SIGNED-INTEGER)     ;  Identifier for language 
  136.    (textSize :SIZE)             ;  length of body data 
  137.    (textBuffer :POINTER)        ;  body of the letter 
  138.    (sendAs :UNSIGNED-BYTE)      ;  Send as Letter, Enclosure, Image 
  139.    (padByte :UNSIGNED-BYTE)
  140.    (enclosures (:POINTER :SMPENCLOSUREDESCRIPTOR));  files to be enclosed 
  141.    (drawImageProc :POINTER)     ;  For imaging 
  142.    (imageRefCon :SIGNED-LONG)   ;  For imaging 
  143.  
  144. ; ERROR!! Record field SUPPORTSCOLOR declared PACKED BOOLEAN !
  145.    (supportsColor :BOOLEAN)     ;  For imaging - set to true if you application supports color imaging 
  146.    )
  147.  
  148. (def-mactype :SMPLETTERPBPTR (find-mactype :POINTER))
  149.  
  150. (defconstant $kSMPAppMustHandleEventBit 0)
  151. (defconstant $kSMPAppShouldIgnoreEventBit 1)
  152. (defconstant $kSMPContractedBit 2)
  153. (defconstant $kSMPExpandedBit 3)
  154. (defconstant $kSMPMailerBecomesTargetBit 4)
  155. (defconstant $kSMPAppBecomesTargetBit 5)
  156. (defconstant $kSMPCursorOverMailerBit 6)
  157. (defconstant $kSMPCreateCopyWindowBit 7)
  158. (defconstant $kSMPDisposeCopyWindowBit 8)
  159. ;  Values of SMPMailerResult 
  160. (defconstant $kSMPAppMustHandleEventMask #X1); 1<<kSMPAppMustHandleEventBit
  161. (defconstant $kSMPAppShouldIgnoreEventMask #X2); 1<<kSMPAppShouldIgnoreEventBit
  162. (defconstant $kSMPContractedMask #X4); 1<<kSMPContractedBit
  163. (defconstant $kSMPExpandedMask #X8); 1<<kSMPExpandedBit
  164. (defconstant $kSMPMailerBecomesTargetMask #X10); 1<<kSMPMailerBecomesTargetBit
  165. (defconstant $kSMPAppBecomesTargetMask #X20); 1<<kSMPAppBecomesTargetBit
  166. (defconstant $kSMPCursorOverMailerMask #X40); 1<<kSMPCursorOverMailerBit
  167. (defconstant $kSMPCreateCopyWindowMask #X80); 1<<kSMPCreateCopyWindowBit
  168. (defconstant $kSMPDisposeCopyWindowMask #X100); 1<<kSMPDisposeCopyWindowBit
  169.  
  170. (def-mactype :SMPMAILERRESULT (find-mactype :SIGNED-LONG))
  171.  
  172. ;  Values of SMPMailerComponent
  173. (defconstant $kSMPOther -1)
  174. (defconstant $kSMPFrom 32)
  175. (defconstant $kSMPTo 20)
  176. (defconstant $kSMPRegarding 22)
  177. (defconstant $kSMPSendDateTime 29)
  178. (defconstant $kSMPAttachments 26)
  179. (defconstant $kSMPAddressOMatic 16)
  180.  
  181. (def-mactype :SMPMAILERCOMPONENT (find-mactype :SIGNED-LONG))
  182.  
  183. (defconstant $kSMPToAddress #$KMAILTOBIT)
  184. (defconstant $kSMPCCAddress #$KMAILCCBIT)
  185. (defconstant $kSMPBCCAddress #$KMAILBCCBIT)
  186.  
  187. (def-mactype :SMPADDRESSTYPE (find-mactype :SIGNED-INTEGER))
  188.  
  189. (defconstant $kSMPUndoCommand 0)
  190. (defconstant $kSMPCutCommand 1)
  191. (defconstant $kSMPCopyCommand 2)
  192. (defconstant $kSMPPasteCommand 3)
  193. (defconstant $kSMPClearCommand 4)
  194. (defconstant $kSMPSelectAllCommand 5)
  195.  
  196. (def-mactype :SMPEDITCOMMAND (find-mactype :SIGNED-INTEGER))
  197.  
  198. (defconstant $kSMPUndoDisabled 0)
  199. (defconstant $kSMPAppMayUndo 1)
  200. (defconstant $kSMPMailerUndo 2)
  201.  
  202. (def-mactype :SMPUNDOSTATE (find-mactype :SIGNED-INTEGER))
  203.  
  204. ; 
  205. ; SMPSendFormatMask:
  206. ; 
  207. ; Bitfield indicating which combinations of formats are included in,
  208. ; should be included or, or can be included in a letter.
  209. ; 
  210.  
  211. (defconstant $kSMPNativeBit 0)
  212. (defconstant $kSMPImageBit 1)
  213. (defconstant $kSMPStandardInterchangeBit 2)
  214.  
  215. ;  Values of SMPSendFormatMask 
  216.  
  217. (defconstant $kSMPNativeMask #X1); 1<<kSMPNativeBit
  218. (defconstant $kSMPImageMask #X2); 1<<kSMPImageBit
  219. (defconstant $kSMPStandardInterchangeMask #X4); 1<<kSMPStandardInterchangeBit
  220.  
  221. (def-mactype :SMPSENDFORMATMASK (find-mactype :SIGNED-LONG))
  222.  
  223. ; 
  224. ;     Pseudo-events passed to the clients filter proc for initialization and cleanup.
  225. ; 
  226.  
  227. (defconstant $kSMPSendOptionsStart -1)
  228. (defconstant $kSMPSendOptionsEnd -2)
  229.  
  230. ; 
  231. ; SMPSendFormatMask:
  232. ; 
  233. ; Structure describing the format of a letter.  If kSMPNativeMask bit is set, the whichNativeFormat field indicates which of the client-defined formats to use.
  234. ; 
  235.  
  236. (defrecord SMPSendFormat 
  237.    (whichFormats :SIGNED-LONG)
  238.    (whichNativeFormat :SIGNED-INTEGER);  0 based 
  239.    )
  240.  
  241. (defrecord SMPLetterInfo 
  242.    (letterCreator :OSTYPE)
  243.    (letterType :OSTYPE)
  244.    (subject :RSTRING32)
  245.    (sender :RSTRING32)
  246.    )
  247.  
  248. (defconstant $kSMPSave 0)
  249. (defconstant $kSMPSaveAs 1)
  250. (defconstant $kSMPSaveACopy 2)
  251.  
  252. (def-mactype :SMPSAVETYPE (find-mactype :SIGNED-INTEGER))
  253.  
  254. (def-mactype :FRONTWINDOWPROCPTR (find-mactype :POINTER))
  255. ;  FUNCTION FrontWindowProcPtr(clientData: LONGINT): WindowPtr;
  256.  
  257. (def-mactype :PREPAREMAILERFORDRAWINGPROCPTR (find-mactype :POINTER))
  258. ;  FUNCTION PrepareMailerForDrawingProcPtr(
  259. ;         window: WindowPtr; clientData: LONGINT): void;
  260.  
  261. (def-mactype :SENDOPTIONSFILTERPROC (find-mactype :POINTER))
  262. ;  FUNCTION SendOptionsFilterProc(theDialog: DialogPtr; VAR theEvent: EventRecord;
  263. ;         itemHit: INTEGER; clientData: LONGINT): BOOLEAN;
  264.  
  265. (defconstant $kSMPGetDimensions 4700)
  266. (defconstant $kSMPNewMailer 4701)
  267. (defconstant $kSMPDisposeMailer 4702)
  268. (defconstant $kSMPMailerEvent 4703)
  269. (defconstant $kSMPMailerEditCommand 4704)
  270. (defconstant $kSMPMailerForward 4705)
  271. (defconstant $kSMPMailerReply 4706)
  272. (defconstant $kSMPGetMailerState 4707)
  273. (defconstant $kSMPPrepareCoverPages 4708)
  274. (defconstant $kSMPDrawNthCoverPage 4709)
  275. (defconstant $kSMPBeginSave 4710)
  276. (defconstant $kSMPBeginSend 4711)
  277. (defconstant $kSMPOpenLetter 4712)
  278. (defconstant $kSMPDrawMailer 4713)
  279. (defconstant $kSMPMoveMailer 4714)
  280. (defconstant $kSMPSetSubject 4715)
  281. (defconstant $kSMPSetFromIdentity 4716)
  282. (defconstant $kSMPAddAddress 4717)
  283. (defconstant $kSMPAddAttachment 4718)
  284. (defconstant $kSMPContentChanged 4719)
  285. (defconstant $kSMPEndSave 4720)
  286. (defconstant $kSMPEndSend 4721)
  287. (defconstant $kSMPExpandOrContract 4722)
  288. (defconstant $kSMPBecomeTarget 4723)
  289. (defconstant $kSMPGetTabInfo 4724)
  290. (defconstant $kSMPClearUndo 4725)
  291. (defconstant $kSMPAttachDialog 4726)
  292. (defconstant $kSMPGetComponentSize 4727)
  293. (defconstant $kSMPGetComponentInfo 4728)
  294. (defconstant $kSMPGetListItemInfo 4729)
  295. (defconstant $kSMPAddContent 4730)
  296. (defconstant $kSMPReadContent 4731)
  297. (defconstant $kSMPGetFontNameFromLetter 4732)
  298. (defconstant $kSMPAddMainEnclosure 4733)
  299. (defconstant $kSMPGetMainEnclosureFSSpec 4734)
  300. (defconstant $kSMPAddBlock 4735)
  301. (defconstant $kSMPReadBlock 4736)
  302. (defconstant $kSMPEnumerateBlocks 4737)
  303. (defconstant $kSMPImage 4738)
  304. (defconstant $kSMPInitMailer 4741)
  305. (defconstant $kSMPGetNextLetter 4742)
  306. (defconstant $kSMPPrepareToClose 4743)
  307. (defconstant $kSMPCloseOptionsDialog 4744)
  308. (defconstant $kSMPPrepareToChange 4745)
  309. (defconstant $kSMPGetLetterInfo 4746)
  310. (defconstant $kSMPTagDialog 4747)
  311. (defconstant $kSMPSendOptionsDialog 5000)
  312.  
  313. (defrecord SMPMailerState 
  314.    (mailerCount :SIGNED-INTEGER)
  315.    (currentMailer :SIGNED-INTEGER)
  316.    (upperLeft :POINT)
  317.    (hasBeenReceived :BOOLEAN)
  318.    (isTarget :BOOLEAN)
  319.    (isExpanded :BOOLEAN)
  320.    (canMoveToTrash :BOOLEAN)
  321.    (canTag :BOOLEAN)
  322. ; padByte2: Byte;
  323.    (changeCount :SIGNED-LONG)
  324.    (targetComponent :SIGNED-LONG)
  325.    (canCut :BOOLEAN)
  326.    (canCopy :BOOLEAN)
  327.    (canPaste :BOOLEAN)
  328.    (canClear :BOOLEAN)
  329.    (canSelectAll :BOOLEAN)
  330. ; padByte3: Byte;
  331.    (undoState :SIGNED-INTEGER)
  332.    (undoWhat (:STRING 63))
  333.    )
  334.  
  335. (defrecord SMPSendOptions 
  336.    (signWhenSent :BOOLEAN)
  337.  
  338. ; ERROR!! Record field PRIORITY declared Non-PACKED BYTE !
  339.    (priority :UNSIGNED-BYTE)
  340.    )
  341.  
  342. (def-mactype :SMPSENDOPTIONSPTR (find-mactype :POINTER))
  343. (def-mactype :SMPSENDOPTIONSHANDLE (find-mactype :HANDLE))
  344.  
  345. (defrecord SMPCloseOptions 
  346.    (moveToTrash :BOOLEAN)
  347.    (addTag :BOOLEAN)
  348.    (tag :RSTRING32)
  349.    )
  350.  
  351. (def-mactype :SMPCLOSEOPTIONSPTR (find-mactype :POINTER))
  352.  
  353. ; ----------------------------------------------------------------------------------------
  354. ;     Send Package Routines
  355. ; ----------------------------------------------------------------------------------------
  356.  
  357. (defconstant $kSMPSendLetter 500)
  358. (defconstant $kSMPResolveToRecipient 1100)
  359.  
  360. (defconstant $kSMPNewPage 2100)
  361. (defconstant $kSMPImageErr 2101)
  362.  
  363.  
  364. (deftrap _smpsendletter ((theletter (:pointer :smpletterpb)))
  365.    (:stack :signed-integer)
  366.    (:stack-trap #xAA5D :d0 (+ (ash 2 16) 500) theletter))
  367.  
  368.  
  369. (deftrap _smpnewpage ((newheader (:pointer :opencpicparams)))
  370.    (:stack :signed-integer)
  371.    (:stack-trap #xAA5D :d0 (+ (ash 2 16) 2100) newheader))
  372.  
  373.  
  374. (deftrap _smpimageerr nil
  375.    (:stack :signed-integer)
  376.    (:stack-trap #xAA5D :d0 (+ (ash 0 16) 2101)))
  377.  
  378.  
  379. (deftrap _smpresolvetorecipient ((dsspec (:pointer :packeddsspec)) (recipientlist (:pointer (:pointer :smprecipientdescriptor))) (identity :signed-long))
  380.    (:stack :signed-integer)
  381.    (:stack-trap #xAA5D :d0 (+ (ash 6 16) 1100) dsspec recipientlist identity))
  382.  
  383.  
  384. (deftrap _smpinitmailer ((mailerversion :signed-long))
  385.    (:stack :signed-integer)
  386.    (:stack-trap #xAA5D :d0 (+ (ash 2 16) 4741) mailerversion))
  387.  
  388.  
  389. (deftrap _smpgetdimensions ((width (:pointer :signed-integer)) (contractedheight (:pointer :signed-integer)) (expandedheight (:pointer :signed-integer)))
  390.    (:stack :signed-integer)
  391.    (:stack-trap #xAA5D :d0 (+ (ash 6 16) 4700) width contractedheight expandedheight))
  392.  
  393.  
  394. (deftrap _smpgettabinfo ((firsttab (:pointer :signed-long)) (lasttab (:pointer :signed-long)))
  395.    (:stack :signed-integer)
  396.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 4724) firsttab lasttab))
  397.  
  398.  
  399. (deftrap _smpnewmailer ((window (:pointer :grafport)) (upperleft :point) (cancontract :boolean) (initiallyexpanded :boolean) (identity :signed-long) (preparemailerfordrawingcb :pointer) (clientdata :signed-long))
  400.    (:stack :signed-integer)
  401.    (:stack-trap #xAA5D :d0 (+ (ash 12 16) 4701) window upperleft cancontract initiallyexpanded identity preparemailerfordrawingcb clientdata))
  402.  
  403.  
  404. (deftrap _smppreparetoclose ((window (:pointer :grafport)))
  405.    (:stack :signed-integer)
  406.    (:stack-trap #xAA5D :d0 (+ (ash 2 16) 4743) window))
  407.  
  408.  
  409. (deftrap _smpcloseoptionsdialog ((window (:pointer :grafport)) (closeoptions (:pointer :smpcloseoptions)))
  410.    (:stack :signed-integer)
  411.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 4744) window closeoptions))
  412.  
  413.  
  414. (deftrap _smptagdialog ((window (:pointer :grafport)) (thetag (:pointer :rstring32)))
  415.    (:stack :signed-integer)
  416.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 4747) window thetag))
  417.  
  418.  
  419. (deftrap _smpdisposemailer ((window (:pointer :grafport)) (closeoptions (:pointer :smpcloseoptions)))
  420.    (:stack :signed-integer)
  421.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 4702) window closeoptions))
  422.  
  423.  
  424. (deftrap _smpmailerevent ((event :eventrecord) (whathappened (:pointer :signed-long)) (frontwindowcb :pointer) (clientdata :signed-long))
  425.    (:stack :signed-integer)
  426.    (:stack-trap #xAA5D :d0 (+ (ash 8 16) 4703) event whathappened frontwindowcb clientdata))
  427.  
  428.  
  429. (deftrap _smpclearundo ((window (:pointer :grafport)))
  430.    (:stack :signed-integer)
  431.    (:stack-trap #xAA5D :d0 (+ (ash 2 16) 4725) window))
  432.  
  433.  
  434. (deftrap _smpmailereditcommand ((window (:pointer :grafport)) (command :signed-integer) (whathappened (:pointer :signed-long)))
  435.    (:stack :signed-integer)
  436.    (:stack-trap #xAA5D :d0 (+ (ash 5 16) 4704) window command whathappened))
  437.  
  438.  
  439. (deftrap _smpmailerforward ((window (:pointer :grafport)) (from :signed-long))
  440.    (:stack :signed-integer)
  441.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 4705) window from))
  442.  
  443.  
  444. (deftrap _smpmailerreply ((originalletter (:pointer :grafport)) (newletter (:pointer :grafport)) (replytoall :boolean) (upperleft :point) (cancontract :boolean) (initiallyexpanded :boolean) (identity :signed-long) (preparemailerfordrawingcb :pointer) (clientdata :signed-long))
  445.    (:stack :signed-integer)
  446.    (:stack-trap #xAA5D :d0 (+ (ash 15 16) 4706) originalletter newletter replytoall upperleft cancontract initiallyexpanded identity preparemailerfordrawingcb clientdata))
  447.  
  448.  
  449. (deftrap _smpgetmailerstate ((window (:pointer :grafport)) (itsstate (:pointer :smpmailerstate)))
  450.    (:stack :signed-integer)
  451.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 4707) window itsstate))
  452.  
  453.  
  454. (deftrap _smpsendoptionsdialog ((window (:pointer :grafport)) (documentname (:string 255)) (nativeformatnames (:pointer (:pointer (:string 255)))) (namecount :signed-integer) (cansend :signed-long) (currentformat (:pointer :smpsendformat)) (filterproc :pointer) (clientdata :signed-long) (shouldsend (:pointer :smpsendformat)) (sendoptions (:pointer :smpsendoptions)))
  455.    (:stack :signed-integer)
  456.    (:stack-trap #xAA5D :d0 (+ (ash 19 16) 5000) window documentname nativeformatnames namecount cansend currentformat filterproc clientdata shouldsend sendoptions))
  457.  
  458.  
  459. (deftrap _smppreparecoverpages ((window (:pointer :grafport)) (pagecount (:pointer :signed-integer)))
  460.    (:stack :signed-integer)
  461.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 4708) window pagecount))
  462.  
  463.  
  464. (deftrap _smpdrawnthcoverpage ((window (:pointer :grafport)) (pagenumber :signed-integer) (donedrawingcoverpages :boolean))
  465.    (:stack :signed-integer)
  466.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 4709) window pagenumber donedrawingcoverpages))
  467.  
  468.  
  469. (deftrap _smppreparetochange ((window (:pointer :grafport)))
  470.    (:stack :signed-integer)
  471.    (:stack-trap #xAA5D :d0 (+ (ash 2 16) 4745) window))
  472.  
  473.  
  474. (deftrap _smpcontentchanged ((window (:pointer :grafport)))
  475.    (:stack :signed-integer)
  476.    (:stack-trap #xAA5D :d0 (+ (ash 2 16) 4719) window))
  477.  
  478.  
  479. (deftrap _smpbeginsave ((window (:pointer :grafport)) (diskletter :fsspec) (creator :ostype) (filetype :ostype) (savetype :signed-integer) (mustaddcontent (:pointer :boolean)))
  480.    (:stack :signed-integer)
  481.    (:stack-trap #xAA5D :d0 (+ (ash 11 16) 4710) window diskletter creator filetype savetype mustaddcontent))
  482.  
  483.  
  484. (deftrap _smpendsave ((window (:pointer :grafport)) (oktosave :boolean))
  485.    (:stack :signed-integer)
  486.    (:stack-trap #xAA5D :d0 (+ (ash 3 16) 4720) window oktosave))
  487.  
  488.  
  489. (deftrap _smpbeginsend ((window (:pointer :grafport)) (creator :ostype) (filetype :ostype) (sendoptions (:pointer :smpsendoptions)) (mustaddcontent (:pointer :boolean)))
  490.    (:stack :signed-integer)
  491.    (:stack-trap #xAA5D :d0 (+ (ash 10 16) 4711) window creator filetype sendoptions mustaddcontent))
  492.  
  493.  
  494. (deftrap _smpendsend ((window (:pointer :grafport)) (oktosend :boolean))
  495.    (:stack :signed-integer)
  496.    (:stack-trap #xAA5D :d0 (+ (ash 3 16) 4721) window oktosend))
  497.  
  498.  
  499. (deftrap _smpopenletter ((letter :letterdescriptor) (window (:pointer :grafport)) (upperleft :point) (cancontract :boolean) (initiallyexpanded :boolean) (preparemailerfordrawingcb :pointer) (clientdata :signed-long))
  500.    (:stack :signed-integer)
  501.    (:stack-trap #xAA5D :d0 (+ (ash 12 16) 4712) letter window upperleft cancontract initiallyexpanded preparemailerfordrawingcb clientdata))
  502.  
  503.  
  504. (deftrap _smpaddmainenclosure ((window (:pointer :grafport)) (enclosure :fsspec))
  505.    (:stack :signed-integer)
  506.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 4733) window enclosure))
  507.  
  508.  
  509. (deftrap _smpgetmainenclosurefsspec ((window (:pointer :grafport)) (enclosuredir (:pointer :fsspec)))
  510.    (:stack :signed-integer)
  511.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 4734) window enclosuredir))
  512.  
  513.  
  514. (deftrap _smpaddcontent ((window (:pointer :grafport)) (segmenttype :signed-integer) (appendflag :boolean) (buffer :pointer) (buffersize :signed-long) (textscrap :stscrpptr) (startnewscript :boolean) (script :signed-integer))
  515.    (:stack :signed-integer)
  516.    (:stack-trap #xAA5D :d0 (+ (ash 12 16) 4730) window segmenttype appendflag buffer buffersize textscrap startnewscript script))
  517.  
  518.  
  519. (deftrap _smpreadcontent ((window (:pointer :grafport)) (segmenttypemask :signed-integer) (buffer :pointer) (buffersize :signed-long) (datasize (:pointer :signed-long)) (textscrap (:pointer :stscrprec)) (script (:pointer :signed-integer)) (segmenttype (:pointer :signed-integer)) (endofscript (:pointer :boolean)) (endofsegment (:pointer :boolean)) (endofcontent (:pointer :boolean)) (segmentlength (:pointer :signed-long)) (segmentid (:pointer :signed-long)))
  520.    (:stack :signed-integer)
  521.    (:stack-trap #xAA5D :d0 (+ (ash 25 16) 4731) window segmenttypemask buffer buffersize datasize textscrap script segmenttype endofscript endofsegment endofcontent segmentlength segmentid))
  522.  
  523.  
  524. (deftrap _smpgetfontnamefromletter ((window (:pointer :grafport)) (fontnum :signed-integer) (fontname (:string 255)) (donewithfonttable :boolean))
  525.    (:stack :signed-integer)
  526.    (:stack-trap #xAA5D :d0 (+ (ash 6 16) 4732) window fontnum fontname donewithfonttable))
  527.  
  528.  
  529. (deftrap _smpaddblock ((window (:pointer :grafport)) (blocktype :ocecreatortype) (append :boolean) (buffer :pointer) (buffersize :signed-long) (mode :signed-integer) (offset :signed-long))
  530.    (:stack :signed-integer)
  531.    (:stack-trap #xAA5D :d0 (+ (ash 12 16) 4735) window blocktype append buffer buffersize mode offset))
  532.  
  533.  
  534. (deftrap _smpreadblock ((window (:pointer :grafport)) (blocktype :ocecreatortype) (blockindex :signed-integer) (buffer :pointer) (buffersize :signed-long) (dataoffset :signed-long) (datasize (:pointer :signed-long)) (endofblock (:pointer :boolean)) (remaining (:pointer :signed-long)))
  535.    (:stack :signed-integer)
  536.    (:stack-trap #xAA5D :d0 (+ (ash 17 16) 4736) window blocktype blockindex buffer buffersize dataoffset datasize endofblock remaining))
  537.  
  538.  
  539. (deftrap _smpenumerateblocks ((window (:pointer :grafport)) (startindex :signed-integer) (buffer :pointer) (buffersize :signed-long) (datasize (:pointer :signed-long)) (nextindex (:pointer :signed-integer)) (more (:pointer :boolean)))
  540.    (:stack :signed-integer)
  541.    (:stack-trap #xAA5D :d0 (+ (ash 13 16) 4737) window startindex buffer buffersize datasize nextindex more))
  542.  
  543.  
  544. (deftrap _smpdrawmailer ((window (:pointer :grafport)))
  545.    (:stack :signed-integer)
  546.    (:stack-trap #xAA5D :d0 (+ (ash 2 16) 4713) window))
  547.  
  548.  
  549. (deftrap _smpsetsubject ((window (:pointer :grafport)) (text :rstring))
  550.    (:stack :signed-integer)
  551.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 4715) window text))
  552.  
  553.  
  554. (deftrap _smpsetfromidentity ((window (:pointer :grafport)) (from :signed-long))
  555.    (:stack :signed-integer)
  556.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 4716) window from))
  557.  
  558.  
  559. (deftrap _smpaddaddress ((window (:pointer :grafport)) (addrtype :signed-integer) (address (:pointer :ocepackedrecipient)))
  560.    (:stack :signed-integer)
  561.    (:stack-trap #xAA5D :d0 (+ (ash 5 16) 4717) window addrtype address))
  562.  
  563.  
  564. (deftrap _smpaddattachment ((window (:pointer :grafport)) (attachment :fsspec))
  565.    (:stack :signed-integer)
  566.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 4718) window attachment))
  567.  
  568.  
  569. (deftrap _smpattachdialog ((window (:pointer :grafport)))
  570.    (:stack :signed-integer)
  571.    (:stack-trap #xAA5D :d0 (+ (ash 2 16) 4726) window))
  572.  
  573.  
  574. (deftrap _smpexpandorcontract ((window (:pointer :grafport)) (expand :boolean))
  575.    (:stack :signed-integer)
  576.    (:stack-trap #xAA5D :d0 (+ (ash 3 16) 4722) window expand))
  577.  
  578.  
  579. (deftrap _smpmovemailer ((window (:pointer :grafport)) (dh :signed-integer) (dv :signed-integer))
  580.    (:stack :signed-integer)
  581.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 4714) window dh dv))
  582.  
  583.  
  584. (deftrap _smpbecometarget ((window (:pointer :grafport)) (becometarget :boolean) (whichfield :signed-long))
  585.    (:stack :signed-integer)
  586.    (:stack-trap #xAA5D :d0 (+ (ash 5 16) 4723) window becometarget whichfield))
  587.  
  588.  
  589. (deftrap _smpgetcomponentsize ((window (:pointer :grafport)) (whichmailer :signed-integer) (whichfield :signed-long) (size (:pointer :signed-integer)))
  590.    (:stack :signed-integer)
  591.    (:stack-trap #xAA5D :d0 (+ (ash 7 16) 4727) window whichmailer whichfield size))
  592.  
  593.  
  594. (deftrap _smpgetcomponentinfo ((window (:pointer :grafport)) (whichmailer :signed-integer) (whichfield :signed-long) (buffer :pointer))
  595.    (:stack :signed-integer)
  596.    (:stack-trap #xAA5D :d0 (+ (ash 7 16) 4728) window whichmailer whichfield buffer))
  597.  
  598.  
  599. (deftrap _smpgetlistiteminfo ((window (:pointer :grafport)) (whichmailer :signed-integer) (whichfield :signed-long) (buffer :pointer) (bufferlength :signed-long) (startitem :signed-integer) (itemcount (:pointer :signed-integer)) (nextitem (:pointer :signed-integer)) (more (:pointer :boolean)))
  600.    (:stack :signed-integer)
  601.    (:stack-trap #xAA5D :d0 (+ (ash 16 16) 4729) window whichmailer whichfield buffer bufferlength startitem itemcount nextitem more))
  602.  
  603.  
  604. (deftrap _smpimage ((window (:pointer :grafport)) (drawimageproc :pointer) (imagerefcon :signed-long) (supportscolor :boolean))
  605.    (:stack :signed-integer)
  606.    (:stack-trap #xAA5D :d0 (+ (ash 7 16) 4738) window drawimageproc imagerefcon supportscolor))
  607.  
  608.  
  609. (deftrap _smpgetnextletter ((typeslist (:pointer :ostype)) (numtypes :signed-integer) (adjacentletter (:pointer :letterdescriptor)))
  610.    (:stack :signed-integer)
  611.    (:stack-trap #xAA5D :d0 (+ (ash 5 16) 4742) typeslist numtypes adjacentletter))
  612.  
  613.  
  614. (deftrap _smpgetletterinfo ((mailboxspec (:pointer :letterspec)) (info (:pointer :smpletterinfo)))
  615.    (:stack :signed-integer)
  616.    (:stack-trap #xAA5D :d0 (+ (ash 4 16) 4746) mailboxspec info))
  617.  
  618. ; $ENDC                         ;  UsingOCEStandardMail 
  619.  
  620. ; $IFC NOT UsingIncludes
  621.  
  622. ; $ENDC
  623.  
  624. (export '($KSMPIMAGEERR $KSMPNEWPAGE $KSMPRESOLVETORECIPIENT $KSMPSENDLETTER
  625.           $KSMPSENDOPTIONSDIALOG $KSMPTAGDIALOG $KSMPGETLETTERINFO
  626.           $KSMPPREPARETOCHANGE $KSMPCLOSEOPTIONSDIALOG $KSMPPREPARETOCLOSE
  627.           $KSMPGETNEXTLETTER $KSMPINITMAILER $KSMPIMAGE $KSMPENUMERATEBLOCKS
  628.           $KSMPREADBLOCK $KSMPADDBLOCK $KSMPGETMAINENCLOSUREFSSPEC
  629.           $KSMPADDMAINENCLOSURE $KSMPGETFONTNAMEFROMLETTER $KSMPREADCONTENT
  630.           $KSMPADDCONTENT $KSMPGETLISTITEMINFO $KSMPGETCOMPONENTINFO
  631.           $KSMPGETCOMPONENTSIZE $KSMPATTACHDIALOG $KSMPCLEARUNDO
  632.           $KSMPGETTABINFO $KSMPBECOMETARGET $KSMPEXPANDORCONTRACT $KSMPENDSEND
  633.           $KSMPENDSAVE $KSMPCONTENTCHANGED $KSMPADDATTACHMENT $KSMPADDADDRESS
  634.           $KSMPSETFROMIDENTITY $KSMPSETSUBJECT $KSMPMOVEMAILER $KSMPDRAWMAILER
  635.           $KSMPOPENLETTER $KSMPBEGINSEND $KSMPBEGINSAVE $KSMPDRAWNTHCOVERPAGE
  636.           $KSMPPREPARECOVERPAGES $KSMPGETMAILERSTATE $KSMPMAILERREPLY
  637.           $KSMPMAILERFORWARD $KSMPMAILEREDITCOMMAND $KSMPMAILEREVENT
  638.           $KSMPDISPOSEMAILER $KSMPNEWMAILER $KSMPGETDIMENSIONS $KSMPSAVEACOPY
  639.           $KSMPSAVEAS $KSMPSAVE $KSMPSENDOPTIONSEND $KSMPSENDOPTIONSSTART
  640.           $KSMPSTANDARDINTERCHANGEMASK $KSMPIMAGEMASK $KSMPNATIVEMASK
  641.           $KSMPSTANDARDINTERCHANGEBIT $KSMPIMAGEBIT $KSMPNATIVEBIT
  642.           $KSMPMAILERUNDO $KSMPAPPMAYUNDO $KSMPUNDODISABLED
  643.           $KSMPSELECTALLCOMMAND $KSMPCLEARCOMMAND $KSMPPASTECOMMAND
  644.           $KSMPCOPYCOMMAND $KSMPCUTCOMMAND $KSMPUNDOCOMMAND $KSMPBCCADDRESS
  645.           $KSMPCCADDRESS $KSMPTOADDRESS $KSMPADDRESSOMATIC $KSMPATTACHMENTS
  646.           $KSMPSENDDATETIME $KSMPREGARDING $KSMPTO $KSMPFROM $KSMPOTHER
  647.           $KSMPDISPOSECOPYWINDOWMASK $KSMPCREATECOPYWINDOWMASK
  648.           $KSMPCURSOROVERMAILERMASK $KSMPAPPBECOMESTARGETMASK
  649.           $KSMPMAILERBECOMESTARGETMASK $KSMPEXPANDEDMASK $KSMPCONTRACTEDMASK
  650.           $KSMPAPPSHOULDIGNOREEVENTMASK $KSMPAPPMUSTHANDLEEVENTMASK
  651.           $KSMPDISPOSECOPYWINDOWBIT $KSMPCREATECOPYWINDOWBIT
  652.           $KSMPCURSOROVERMAILERBIT $KSMPAPPBECOMESTARGETBIT
  653.           $KSMPMAILERBECOMESTARGETBIT $KSMPEXPANDEDBIT $KSMPCONTRACTEDBIT
  654.           $KSMPAPPSHOULDIGNOREEVENTBIT $KSMPAPPMUSTHANDLEEVENTBIT
  655.           $KSMPSENDASIMAGEMASK $KSMPSENDFILEONLYMASK $KSMPSENDASENCLOSUREMASK
  656.           $KSMPSENDASIMAGEBIT $KSMPSENDFILEONLYBIT $KSMPSENDASENCLOSUREBIT
  657.           $FILTERIMAGECONTENT $FILTERAPPLELETTERCONTENT $FILTERANYLETTER
  658.           $TYPELETTERSPEC $KSMPVERSION $KSMPNATIVEFORMATNAME
  659.           $GESTALTSMPSPSENDLETTERVERSION $GESTALTSMPMAILERVERSION))
  660. (provide-interface 'OCEStandardMail)